Sub Ȧ¦μ()

    Dim ü  As Integer
    Dim  As Integer
    Dim i As Integer
    Dim ޽ As String
    
    ޽ = "Ȧ/¦ μ ۾ մϴ." & vbCr & vbCr
    ޽ = ޽ & "¦  μϷ <>ư," & vbCr
    ޽ = ޽ & "Ȧ  μϷ <ƴϿ> ư  ּ!"
    
    ü = ExecuteExcel4Macro("Get.Document(50)")
    
    If ü > 0 Then
        
        Select Case MsgBox(޽, vbYesNoCancel + vbInformation, "Ȧ/¦ μ")
        
            Case vbYes:  = 2
            Case vbNo:  = 1
            Case vbCancel: Exit Sub
        
        End Select
    
        For i =  To ü Step 2
            
            ActiveSheet.PrintOut From:=i, To:=i
            
        Next
    
    End If

End Sub
